(server-process-filter): Pass proper format string to message.

diff --git a/lisp/server.el b/lisp/server.el
index ccd20026c97cdfd42624b911a7162c954f1271fe..5dc51cb7e3968615a66a06e4bf3186988e860950 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -191,7 +191,7 @@ Prefix arg means just kill any existing server communications subprocess."
       ;; Remove this line from STRING.
       (setq string (substring string (match-end 0)))     
       (if (string-match "^Error: " request)
-         (message (concat "Server error: " (substring request (match-end 0))))
+         (message "Server error: %s" (substring request (match-end 0)))
        (if (string-match "^Client: " request)
            (progn
              (setq request (substring request (match-end 0)))